home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 65
/
64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_A.d64
/
adresse 203
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
43 lines
4 dimd$(64)
5 fori=1to38:ln$=ln$+chr$(192):next
6 fori=0to64:readd$(i):next
10 printchr$(147)chr$(14)
20 print"[211]peicherstelle 203 enthaelt den"
30 print"[195]ode der aktuell gedrueckten [212]aste."
40 print"[196]iese [215]erte sind jedoch nicht mit den"
50 print"[194]ildschirm- und [193][211][195][201][201]-[215]erten identisch!":print
60 printtab(13)"<[195]> [195]odetabelle"
70 printtab(13)"<[196]> [196]emo"
75 printtab(13)"<[197]> [197]nde"
80 gett$
85 ift$="c"then1010
86 ift$="d"then2000
87 ift$="e"thenprintchr$(147):end
88 goto80
1010 x=1:y=16:gosub3500
1020 x=17:y=32:gosub3500
1030 x=33:y=48:gosub3500
1040 x=49:y=64:gosub3500
2000 print:print" ([212]astaturabfrage beenden mit <[198]1>!)":print
2001 print"[211]olange man die [212]aste gedrueckt haelt,"
2002 print"erscheint rechts unten der [212]astencode!"
2003 print">>64<< bedeutet: keine [212]aste gedrueckt!"
2009 poke211,5:poke214,18:sys58640:getc$:printc$;
2010 ifc$=chr$(13)thenprint"[145][145]"
2011 ifc$="[133]"thenend
2012 ifc$="[145]"thenprint"";
2013 ifc$=""thenprint"[145][145]"
2019 printtab(22)"[208][197][197][203](203)= [157][157][157][157]"peek(203);
2020 goto2009
3000 data<inst/del>,<return>,<crsr links/rechts>,<f7>,<f1>,<f3>,<f5>
3002 data<crsr auf/ab>,<3> <#>,<w>,<a>,<4> <$>,<z>,<s>,<e>,,<5> <%>,<r>,<d>
3003 data<6> <&>,<c>,<f>,<t>,<x>,<7> <'>,<y>,<g>,<8> <(>,<b>,<h>,<u>,<v>,<9> <)>
3004 data<i>,<j>,<0>,<m>,<k>,<o>,<n>,<+>,<p>,<l>,<->,<.> <>>,"<:> <[>",<@>
3005 data"<,> <<>",<\>,<*>,<;> <]>,<clr/home>,,<=>,<^> <pi>
3006 data<?> </>,<1> <!>,<_>,,<2> <">,<space>,,<q>,<run/stop>,keine taste
3500 [141]5000:[129]i[178]x[164]y:[153]i;[163]20)d$(i):[130]:[141]4000:[142]
4000 [153]:[153][163]30)" (NULL)aste "
4010 [151]198,0:[146]198,1:[153][199](147):[142]
5000 [153][199](147)"len(NULL)str$val (NULL)atnpeekval(NULL)(NULL)val zu atndresse 203":[153]ln$
5002 [153]"(NULL)valval(NULL) (203)"[163]20)"(NULL)aste ":[153]ln$:[142]